Nuprl Lemma : proddeq_wf
0,22
postcript
pdf
A
,
B
:Type,
a
:EqDecider(
A
),
b
:EqDecider(
B
). proddeq(
a
;
b
)
A
B
A
B
latex
Definitions
EqDecider(
T
)
,
proddeq(
a
;
b
)
,
p
q
,
1of(
t
)
,
2of(
t
)
,
x
.
t
(
x
)
,
,
P
Q
,
Prop
,
b
,
x
:
A
.
B
(
x
)
,
t
T
Lemmas
assert
wf
,
iff
wf
,
bool
wf
,
pi2
wf
,
pi1
wf
,
band
wf
origin
A, B:Type, a:EqDecider(A), b:EqDecider(B). proddeq(a;b) 
A
B
AB
A, B:Type, a:EqDecider(A), b:EqDecider(B). proddeq(a;b) ABAB 
q
x. t(x)
Q
bx:A. B(x) T